#!/usr/bin/perl

use strict;
use CGI;
my $mycgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

(my $sec, my $min, my $hr, my $dom, my $mon, my $yr, my $dow, my $doy, my $ds) = localtime(time);
$yr += 1900;
$mon += 1;

print
    $mycgi->header,
    $mycgi->start_html('Hello, World'),
    $mycgi->h1('Hello World!'),
    $mycgi->p("Current date = ", $mon, "/", $dom, "/", $yr,"  (mm/dd/yyyy)"),
    $mycgi->p("Current time = ", $hr, ":", $min, ":", $sec),
    $mycgi->end_html;

